home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / gnat1792.zip / gnat179b / examples / instr-ch.ads < prev    next >
Text File  |  1994-05-13  |  315b  |  23 lines
  1. package Instr.Child is 
  2.  
  3.    subtype Thousand is Integer range 0 .. 1000;
  4.    
  5.    type Accurate_Clock is new Clock with record 
  6.       MilliSec : Thousand := 0;
  7.    end record;
  8.  
  9.    procedure Display_Value (C : Accurate_Clock);   
  10.    procedure Increment (C : in out Accurate_Clock; inc : Integer := 1); 
  11.  
  12. end;
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.